*&---------------------------------------------------------------------*
*& Report  ZDEMO_NORMAL_ALV
*&
*&---------------------------------------------------------------------*
REPORT  ZDEMO_FM_BLOCKED_ALV.
TYPE-POOLS SLIS.
DATA : IT_EKKO TYPE STANDARD TABLE OF EKKO,
       IT_EKPO TYPE STANDARD TABLE OF EKPO,
       IS_LAYOUT TYPE SLIS_LAYOUT_ALV,
       IT_EVENTS TYPE SLIS_T_EVENT,
       IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
       WA_FIELDCAT TYPE LINE OF SLIS_T_FIELDCAT_ALV.

SELECT * INTO TABLE IT_EKKO FROM EKKO UP TO 15 ROWS WHERE LIFNR <> SPACE.

IF IT_EKKO IS NOT INITIAL.
   SELECT * INTO TABLE IT_EKPO FROM EKPO FOR ALL ENTRIES IN IT_EKKO
                                         WHERE EBELN = IT_EKKO-EBELN.
ENDIF.


PERFORM INITIALIZE_ALV_BLOCK.

PERFORM APPEND_DATA_TO_ALV_BLOCK.

PERFORM DISPLAY_ALV_BLOCK.


*&---------------------------------------------------------------------*
*&      Form  INITIALIZE_ALV_BLOCK
*&---------------------------------------------------------------------*
form INITIALIZE_ALV_BLOCK .
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'
  EXPORTING
    i_callback_program             = SY-CPROG
*   I_CALLBACK_PF_STATUS_SET       = ' '
*   I_CALLBACK_USER_COMMAND        = ' '
*   IT_EXCLUDING                   =
          .

endform.                    " INITIALIZE_ALV_BLOCK

*&---------------------------------------------------------------------*
*&      Form  DISPLAY_ALV_BLOCK
*&---------------------------------------------------------------------*
form DISPLAY_ALV_BLOCK .
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY'
* EXPORTING
*   I_INTERFACE_CHECK             = ' '
*   IS_PRINT                      =
*   I_SCREEN_START_COLUMN         = 0
*   I_SCREEN_START_LINE           = 0
*   I_SCREEN_END_COLUMN           = 0
*   I_SCREEN_END_LINE             = 0
* IMPORTING
*   E_EXIT_CAUSED_BY_CALLER       =
*   ES_EXIT_CAUSED_BY_USER        =
* EXCEPTIONS
*   PROGRAM_ERROR                 = 1
*   OTHERS                        = 2
          .
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

endform.                    " DISPLAY_ALV_BLOCK


*&---------------------------------------------------------------------*
*&      Form  APPEND_DATA_TO_ALV_BLOCK
*&---------------------------------------------------------------------*
form APPEND_DATA_TO_ALV_BLOCK .

*Prepare It_fieldcat Semi Automatically
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
 EXPORTING
*   I_PROGRAM_NAME               =
*   I_INTERNAL_TABNAME           =
   I_STRUCTURE_NAME             = 'EKKO'
*   I_CLIENT_NEVER_DISPLAY       = 'X'
*   I_INCLNAME                   =
*   I_BYPASSING_BUFFER           =
*   I_BUFFER_ACTIVE              =
  CHANGING
    ct_fieldcat                  = it_fieldcat
* EXCEPTIONS
*   INCONSISTENT_INTERFACE       = 1
*   PROGRAM_ERROR                = 2
*   OTHERS                       = 3
          .
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

CLEAR WA_FIELDCAT.
      WA_FIELDCAT-EMPHASIZE = 'C51'.
       "cOLOR

MODIFY IT_FIELDCAT FROM WA_FIELDCAT TRANSPORTING EMPHASIZE WHERE FIELDNAME = 'AEDAT'.

CLEAR WA_FIELDCAT.
      WA_FIELDCAT-KEY = 'X'. "
MODIFY IT_FIELDCAT FROM WA_FIELDCAT TRANSPORTING KEY WHERE FIELDNAME = 'BUKRS'.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
  EXPORTING
    is_layout                        = IS_LAYOUT
    it_fieldcat                      = it_fieldcat
    i_tabname                        = 'IT_EKKO'
    it_events                        = IT_EVENTS
*   IT_SORT                          =
*   I_TEXT                           = ' '
  tables
    t_outtab                         = it_ekko
* EXCEPTIONS
*   PROGRAM_ERROR                    = 1
*   MAXIMUM_OF_APPENDS_REACHED       = 2
*   OTHERS                           = 3
          .
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.


***************APPEND IT_EKPO
CLEAR : IT_FIELDCAT,IT_EVENTS,IS_LAYOUT.
*Prepare It_fieldcat Semi Automatically
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
 EXPORTING
*   I_PROGRAM_NAME               =
*   I_INTERNAL_TABNAME           =
   I_STRUCTURE_NAME             = 'EKPO'
*   I_CLIENT_NEVER_DISPLAY       = 'X'
*   I_INCLNAME                   =
*   I_BYPASSING_BUFFER           =
*   I_BUFFER_ACTIVE              =
  CHANGING
    ct_fieldcat                  = it_fieldcat
* EXCEPTIONS
*   INCONSISTENT_INTERFACE       = 1
*   PROGRAM_ERROR                = 2
*   OTHERS                       = 3
          .
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.


CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
  EXPORTING
    is_layout                        = IS_LAYOUT
    it_fieldcat                      = it_fieldcat
    i_tabname                        = 'IT_EKPO'
    it_events                        = IT_EVENTS
*   IT_SORT                          =
*   I_TEXT                           = ' '
  tables
    t_outtab                         = it_ekPo
* EXCEPTIONS
*   PROGRAM_ERROR                    = 1
*   MAXIMUM_OF_APPENDS_REACHED       = 2
*   OTHERS                           = 3
          .
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

endform.                    " APPEND_DATA_TO_ALV_BLOCK